home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / comm / misc / xqsrc1_7.lzh / make < prev    next >
Text File  |  1993-03-13  |  2KB  |  81 lines
  1. /*
  2.  *        Make xferq.library, public tools, and private tools
  3.  */
  4.  
  5. parse upper arg mktype
  6. address command
  7.  
  8. select
  9.     when mktype = 'D' then defname = '/devel.def'
  10.     when mktype = 'P' then defname = '/production.def'
  11.     when mktype = 'B' then do
  12.         call pragma('d', 'include')
  13.         'bumprev 1 XferQ_rev'
  14.         call pragma('d', '/')
  15.         exit
  16.         end
  17.     otherwise do
  18.         say "Use 'D' for development, 'P' for production."
  19.         exit
  20.         end
  21.     end
  22.  
  23. /*
  24.  *        For a production run, delete all objects (to force a make).
  25.  */
  26.  
  27. if mktype = 'P' then do
  28.     'delete obj/#?.o obj/#?.dis'
  29.     end
  30.  
  31. if exists('library') then do
  32.     call pragma('d', 'library')
  33.     'smake -b ' || defname
  34.     temp = rc
  35.     call pragma('d', '/')
  36.     if temp ~= 0 then exit
  37.     end
  38.  
  39. if exists('tools') then do
  40.     call pragma('d', 'tools')
  41.     'smake -b ' || defname
  42.     temp = rc
  43.     call pragma('d', '/')
  44.     if temp ~= 0 then exit
  45.     end
  46.  
  47. if exists('test') then do
  48.     call pragma('d', 'test')
  49.     'smake -b ' || defname
  50.     temp = rc
  51.     call pragma('d', '/')
  52.     if temp ~= 0 then exit
  53.     end
  54.  
  55. /*
  56.  *        After doing production run, delete all objects (for packing)
  57.  *        and make the docs.  Finally, archive it all.
  58.  */
  59.  
  60. if mktype = 'P' then do
  61.     if exists('work:doc/xfq_pw') then do
  62.         call pragma('d', 'doc')
  63.         'smake -b ' || defname
  64.         call pragma('d', '/')
  65.         end
  66.     'delete obj/#?.o #?.lzh xferq.library'
  67.     arcname = 'xqsrc' || substr(date('s'),3) || '.lzh'
  68.     'lz -x -isource.list a ' || arcname
  69.     arcname = 'xqdev' || substr(date('s'),3) || '.lzh'
  70.     'lz -x -idevel.list a ' || arcname
  71.     end
  72.  
  73. /*
  74.  *        For development, strip debug info from library so I can ship it to
  75.  *        Russ.
  76.  */
  77.  
  78. if mktype = 'D' then do
  79.     'slink bin/xferq.library to xferq.library nd noicons'
  80.     end
  81.